home *** CD-ROM | disk | FTP | other *** search
/ The Fast Show Comedy Pack / The Fast Show Comedy Pack.iso / FSQuiz / FSQuiz.dxr / Internal_8_introAVIControl.ls < prev    next >
Encoding:
Text File  |  1999-11-15  |  799 b   |  48 lines
  1. property meSprite, meMember, pState, pLoc, pWaitTime
  2. global gCloudio, gScorchio
  3.  
  4. on beginSprite me
  5.   meSprite = sprite(me.spriteNum)
  6.   meMember = meSprite.member
  7.   pLoc = meSprite.loc
  8.   pState = #PLACE
  9. end
  10.  
  11. on mSkip me
  12.   mStop(me)
  13.   cursor(0)
  14.   pState = #NULL
  15.   go(the frame + 1)
  16. end
  17.  
  18. on exitFrame me
  19.   case pState of
  20.     #PLACE:
  21.       pState = #Wait
  22.       pWaitTime = the timer + 1
  23.     #Wait:
  24.       if the timer >= pWaitTime then
  25.         pState = #start
  26.       end if
  27.     #start:
  28.       pWaitTime = meMember.duration - 5
  29.       mPlay(me)
  30.       pState = #playing
  31.     #playing:
  32.       if meSprite.movieRate = 0 then
  33.         mStop(me)
  34.         cursor(0)
  35.         pState = #NULL
  36.         go(the frame + 1)
  37.       end if
  38.   end case
  39. end
  40.  
  41. on mPlay me
  42. end
  43.  
  44. on mStop me
  45.   meSprite.movieRate = 0
  46.   updateStage()
  47. end
  48.